Filename | (eval 1131)[/usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm:78] |
Statements | Executed 4 statements in 3µs |
Eval Invoked At | /usr/lib/x86_64-linux-gnu/perl5/5.20/Template/Document.pm line 78 |
Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 |
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | sub { | ||||
2 | 1 | 500ns | my $context = shift || die "template sub called without context\n"; | ||
3 | 1 | 2µs | 1 | 2µs | my $stash = $context->stash; # spent 2µs making 1 call to Template::Context::stash |
4 | 1 | 300ns | my $output = ''; | ||
5 | 1 | 100ns | my $_tt_error; | ||
6 | |||||
7 | eval { BLOCK: { | ||||
8 | #line 1 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
9 | # USE | ||||
10 | $stash->set('Koha', | ||||
11 | $context->plugin('Koha')); | ||||
12 | $output .= "\n"; | ||||
13 | #line 2 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
14 | $output .= $context->include('doc-head-open.inc'); | ||||
15 | $output .= "\n<title>Koha staff client</title>\n<link rel=\"stylesheet\" type=\"text/css\" href=\""; | ||||
16 | #line 4 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
17 | $output .= $stash->get('themelang'); | ||||
18 | $output .= "/css/mainpage.css\" />\n"; | ||||
19 | #line 5 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
20 | $output .= $context->include('doc-head-close.inc'); | ||||
21 | $output .= "\n<style type=\"text/css\"> </style>\n\n</head>\n<body id=\"main_intranet-main\" class=\"main\">\n"; | ||||
22 | #line 10 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
23 | $output .= $context->include('header.inc'); | ||||
24 | $output .= "\n"; | ||||
25 | #line 11 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
26 | $output .= $context->include('home-search.inc'); | ||||
27 | $output .= "\n\n<div id=\"breadcrumbs\" >Home</div>\n\n\n<div id=\"doc3\" class=\"yui-t3\">\n <div id=\"bd\" role=\"main\">\n <div id=\"yui-main\">\n <div class=\"yui-b\"><div class=\"yui-g\">\n "; | ||||
28 | #line 25 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
29 | if ($stash->get('adminWarning')) { | ||||
30 | $output .= "\n <div id=\"adminwarning\" class=\"dialog alert\">\n <p><strong>Warning:</strong> You're logged in with the database administrator account. This is a bad idea, and you are likely to encounter problems.</p>\n <p>You should <a href=\"/cgi-bin/koha/members/members-home.pl\">create a patron</a> to use when administering Koha and give it superlibrarian permissions.</p>\n </div>\n "; | ||||
31 | } | ||||
32 | |||||
33 | $output .= "\n <div class=\"yui-u first\">\n\n <div id=\"area-list-left\">\n <ul class=\"biglinks-list\">\n "; | ||||
34 | #line 34 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
35 | if (($stash->get('CAN_user_circulate'))) { | ||||
36 | $output .= "\n <li>\n <a class=\"icon_general icon_circulation\" href=\"/cgi-bin/koha/circ/circulation-home.pl\">Circulation</a>\n </li>\n "; | ||||
37 | } | ||||
38 | |||||
39 | $output .= "\n\n "; | ||||
40 | #line 40 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
41 | if (($stash->get('CAN_user_borrowers'))) { | ||||
42 | $output .= "\n <li>\n <a class=\"icon_general icon_patrons\" href=\"/cgi-bin/koha/members/members-home.pl\">Patrons</a>\n </li>\n "; | ||||
43 | } | ||||
44 | |||||
45 | $output .= "\n\n "; | ||||
46 | #line 46 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
47 | if (($stash->get('CAN_user_catalogue'))) { | ||||
48 | $output .= "\n <li>\n <a class=\"icon_general icon_search\" href=\"/cgi-bin/koha/catalogue/search.pl\">Advanced search</a>\n </li>\n "; | ||||
49 | } | ||||
50 | |||||
51 | $output .= "\n\n <li>\n <a class=\"icon_general icon_lists\" href=\"/cgi-bin/koha/virtualshelves/shelves.pl\">Lists</a>\n </li>\n\n "; | ||||
52 | #line 56 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
53 | if (($stash->get('UseCourseReserves'))) { | ||||
54 | $output .= "\n <li>\n <a class=\"icon_general icon_course_reserves\" href=\"/cgi-bin/koha/course_reserves/course-reserves.pl\">Course reserves</a>\n </li>\n "; | ||||
55 | } | ||||
56 | |||||
57 | $output .= "\n\n "; | ||||
58 | #line 62 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
59 | if (($stash->get('CAN_user_editcatalogue_edit_catalogue') || $stash->get('CAN_user_editcatalogue_edit_items'))) { | ||||
60 | $output .= "\n <li>\n <a class=\"icon_general icon_cataloging\" href=\"/cgi-bin/koha/cataloguing/addbooks.pl\">Cataloging</a>\n </li>\n "; | ||||
61 | } | ||||
62 | |||||
63 | $output .= "\n <li>\n <a class=\"icon_general icon_authorities\" href=\"/cgi-bin/koha/authorities/authorities-home.pl\">Authorities</a>\n </li>\n </ul>\n </div><!-- /area-list-left -->\n </div><!-- /yui-u first -->\n <div class=\"yui-u\">\n <div id=\"area-list-right\">\n <ul class=\"biglinks-list\">\n "; | ||||
64 | #line 77 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
65 | if (($stash->get('CAN_user_serials'))) { | ||||
66 | $output .= "\n <li>\n <a class=\"icon_general icon_serials\" href=\"/cgi-bin/koha/serials/serials-home.pl\">Serials</a>\n <span class=\"biglink\"></span>\n </li>\n "; | ||||
67 | } | ||||
68 | |||||
69 | $output .= "\n\n "; | ||||
70 | #line 84 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
71 | if (($stash->get('CAN_user_acquisition'))) { | ||||
72 | $output .= "\n <li>\n <a class=\"icon_general icon_acquisitions\" href=\"/cgi-bin/koha/acqui/acqui-home.pl\">Acquisitions</a>\n <span class=\"biglink\"></span>\n </li>\n "; | ||||
73 | } | ||||
74 | |||||
75 | $output .= "\n\n "; | ||||
76 | #line 90 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
77 | if (($stash->get('CAN_user_reports'))) { | ||||
78 | $output .= "\n <li>\n <a class=\"icon_general icon_reports\" href=\"/cgi-bin/koha/reports/reports-home.pl\">Reports</a>\n </li>\n "; | ||||
79 | } | ||||
80 | |||||
81 | $output .= "\n\n\n "; | ||||
82 | #line 97 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
83 | if (($stash->get('CAN_user_tools'))) { | ||||
84 | $output .= "\n <li>\n <a class=\"icon_general icon_tools\" href=\"/cgi-bin/koha/tools/tools-home.pl\">Tools</a>\n </li>\n "; | ||||
85 | } | ||||
86 | |||||
87 | $output .= "\n\n "; | ||||
88 | #line 103 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
89 | if (($stash->get('CAN_user_parameters'))) { | ||||
90 | $output .= "\n <li>\n <a class=\"icon_general icon_administration\" href=\"/cgi-bin/koha/admin/admin-home.pl\">Koha administration</a>\n </li>\n "; | ||||
91 | } | ||||
92 | |||||
93 | $output .= "\n <li>\n <a class=\"icon_general icon_koha\" href=\"/cgi-bin/koha/about.pl\">About Koha</a>\n </li>\n </ul>\n </div><!-- /area-list-right -->\n </div><!-- /yui-u -->\n</div><!-- /yui-g -->\n<div class=\"yui-g\">\n "; | ||||
94 | #line 158 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
95 | if ((($stash->get('CAN_user_tools_moderate_comments') && $stash->get('pendingcomments')) || ($stash->get('CAN_user_tools_moderate_tags') && $stash->get('pendingtags')) || ($stash->get('CAN_user_borrowers') && $stash->get('pending_borrower_modifications')) || ($stash->get('CAN_user_acquisition') && $stash->get('pendingsuggestions')) || ($stash->get('CAN_user_borrowers') && $stash->get('pending_discharge_requests')))) { | ||||
96 | $output .= "\n <div id=\"area-pending\">\n "; | ||||
97 | #line 125 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
98 | if (($stash->get('CAN_user_acquisition') && $stash->get('pendingsuggestions'))) { | ||||
99 | $output .= "\n <div class=\"pending-info\" id=\"suggestions_pending\">\n\n <a href=\"/cgi-bin/koha/suggestion/suggestion.pl#ASKED\">Suggestions pending approval</a>:\n <span class=\"pending-number-link\">"; | ||||
100 | #line 123 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
101 | $output .= $stash->get('pendingsuggestions'); | ||||
102 | $output .= "</span>\n </div>\n "; | ||||
103 | } | ||||
104 | |||||
105 | $output .= "\n\n "; | ||||
106 | #line 132 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
107 | if (($stash->get('CAN_user_tools_moderate_comments') && $stash->get('pendingcomments'))) { | ||||
108 | $output .= "\n <div class=\"pending-info\" id=\"comments_pending\">\n <a href=\"/cgi-bin/koha/reviews/reviewswaiting.pl\">Comments pending approval</a>:\n <span class=\"pending-number-link\">"; | ||||
109 | #line 130 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
110 | $output .= $stash->get('pendingcomments'); | ||||
111 | $output .= "</span>\n </div>\n "; | ||||
112 | } | ||||
113 | |||||
114 | $output .= "\n\n "; | ||||
115 | #line 139 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
116 | if (($stash->get('CAN_user_tools_moderate_tags') && $stash->get('pendingtags'))) { | ||||
117 | $output .= "\n <div class=\"pending-info\" id=\"tags_pending\">\n <a href=\"/cgi-bin/koha/tags/review.pl\">Tags pending approval</a>:\n <span class=\"pending-number-link\">"; | ||||
118 | #line 137 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
119 | $output .= $stash->get('pendingtags'); | ||||
120 | $output .= "</span>\n </div>\n "; | ||||
121 | } | ||||
122 | |||||
123 | $output .= "\n\n\n "; | ||||
124 | #line 147 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
125 | if (($stash->get('CAN_user_borrowers') && $stash->get('pending_borrower_modifications'))) { | ||||
126 | $output .= "\n <div class=\"pending-info\" id=\"patron_updates_pending\">\n <a href=\"/cgi-bin/koha/members/members-update.pl\">Patrons requesting modifications</a>:\n <span class=\"pending-number-link\">"; | ||||
127 | #line 145 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
128 | $output .= $stash->get('pending_borrower_modifications'); | ||||
129 | $output .= "</span>\n </div>\n "; | ||||
130 | } | ||||
131 | |||||
132 | $output .= "\n\n "; | ||||
133 | #line 154 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
134 | if ($stash->get('CAN_user_borrowers') && $stash->get('pending_discharge_requests')) { | ||||
135 | $output .= "\n <div class=\"pending-info\" id=\"patron_discharges_pending\">\n <a href=\"/cgi-bin/koha/members/discharges.pl\">Discharge requests pending</a>:\n <span class=\"pending-number-link\">"; | ||||
136 | #line 152 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
137 | $output .= $stash->get('pending_discharge_requests'); | ||||
138 | $output .= "</span>\n </div>\n "; | ||||
139 | } | ||||
140 | |||||
141 | $output .= "\n\n </div>\n\n "; | ||||
142 | } | ||||
143 | |||||
144 | $output .= "\n\n</div>\n "; | ||||
145 | #line 167 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
146 | if (($stash->get('IntranetmainUserblock'))) { | ||||
147 | $output .= "\n <div class=\"yui-g\" id=\"area-userblock\">\n <div class=\"user-info\">\n "; | ||||
148 | #line 164 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
149 | $output .= $stash->get('IntranetmainUserblock'); | ||||
150 | $output .= "\n </div>\n </div>\n "; | ||||
151 | } | ||||
152 | |||||
153 | $output .= "\n</div>\n </div>\n <div class=\"yui-b\"><!-- YOUR NAVIGATION GOES HERE -->\n "; | ||||
154 | #line 188 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
155 | if (($stash->get('koha_news_count'))) { | ||||
156 | $output .= "\n <div id=\"area-news\">\n <h3><span=\"news_title\">News</span></h3>\n "; | ||||
157 | #line 174 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
158 | $stash->set('newsdisp', $stash->get(['Koha', 0, 'Preference', [ 'NewsAuthorDisplay' ]])); | ||||
159 | $output .= "\n "; | ||||
160 | #line 186 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
161 | |||||
162 | # FOREACH | ||||
163 | do { | ||||
164 | my ($_tt_value, $_tt_error, $_tt_oldloop); | ||||
165 | my $_tt_list = $stash->get('koha_news'); | ||||
166 | |||||
167 | unless (UNIVERSAL::isa($_tt_list, 'Template::Iterator')) { | ||||
168 | $_tt_list = Template::Config->iterator($_tt_list) | ||||
169 | || die $Template::Config::ERROR, "\n"; | ||||
170 | } | ||||
171 | |||||
172 | ($_tt_value, $_tt_error) = $_tt_list->get_first(); | ||||
173 | eval { $_tt_oldloop = $stash->get('loop') }; | ||||
174 | $stash->set('loop', $_tt_list); | ||||
175 | eval { | ||||
176 | FOR1: while (! $_tt_error) { | ||||
177 | $stash->{'koha_new'} = $_tt_value; | ||||
178 | $output .= "\n <div class=\"newsitem\" id=\"news"; | ||||
179 | #line 176 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
180 | $output .= $stash->get(['koha_new', 0, 'idnew', 0]); | ||||
181 | $output .= "\"><h4>"; | ||||
182 | #line 176 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
183 | $output .= $stash->get(['koha_new', 0, 'title', 0]); | ||||
184 | $output .= "</h4>\n <p>"; | ||||
185 | #line 177 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
186 | $output .= $stash->get(['koha_new', 0, 'new', 0]); | ||||
187 | $output .= "</p>\n <p class=\"newsfooter\"> Posted on "; | ||||
188 | #line 178 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
189 | $output .= $stash->get(['koha_new', 0, 'newdate', 0]); | ||||
190 | #line 178 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
191 | if ((($stash->get('newsdisp') eq 'staff' || $stash->get('newsdisp') eq 'both') && $stash->get(['koha_new', 0, 'borrowernumber', 0]))) { | ||||
192 | $output .= " by <span class=\"newsauthor_title\">"; | ||||
193 | #line 178 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
194 | $output .= $stash->get(['koha_new', 0, 'author_title', 0]); | ||||
195 | $output .= " </span>"; | ||||
196 | #line 178 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
197 | $output .= $stash->get(['koha_new', 0, 'author_firstname', 0]); | ||||
198 | $output .= " "; | ||||
199 | #line 178 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
200 | $output .= $stash->get(['koha_new', 0, 'author_surname', 0]); | ||||
201 | $output .= "<br />"; | ||||
202 | } | ||||
203 | |||||
204 | $output .= "\n "; | ||||
205 | #line 183 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
206 | if (($stash->get('CAN_user_tools'))) { | ||||
207 | $output .= "\n <a href=\"/cgi-bin/koha/tools/koha-news.pl?op=add_form&id="; | ||||
208 | #line 180 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
209 | $output .= $stash->get(['koha_new', 0, 'idnew', 0]); | ||||
210 | $output .= "\">Edit</a>\n | <a href=\"/cgi-bin/koha/tools/koha-news.pl?op=del&ids="; | ||||
211 | #line 181 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
212 | $output .= $stash->get(['koha_new', 0, 'idnew', 0]); | ||||
213 | $output .= "\">Delete</a>\n | <a href=\"/cgi-bin/koha/tools/koha-news.pl?op=add_form\">New</a>\n "; | ||||
214 | } | ||||
215 | |||||
216 | $output .= "\n </p>\n </div>\n ";; | ||||
217 | ($_tt_value, $_tt_error) = $_tt_list->get_next(); | ||||
218 | } | ||||
219 | }; | ||||
220 | $stash->set('loop', $_tt_oldloop); | ||||
221 | die $@ if $@; | ||||
222 | $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE; | ||||
223 | die $_tt_error if $_tt_error; | ||||
224 | }; | ||||
225 | |||||
226 | $output .= "\n </div><!-- /koha-news -->\n "; | ||||
227 | } | ||||
228 | |||||
229 | $output .= "\n </div>\n </div>\n</div>\n\n<!-- the main div is closed in intranet-bottom.inc -->\n"; | ||||
230 | #line 194 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt" | ||||
231 | $output .= $context->include('intranet-bottom.inc'); | ||||
232 | $output .= "\n"; | ||||
233 | } }; | ||||
234 | if ($@) { | ||||
235 | $_tt_error = $context->catch($@, \$output); | ||||
236 | die $_tt_error unless $_tt_error->type eq 'return'; | ||||
237 | } | ||||
238 | |||||
239 | return $output; | ||||
240 | } | ||||
241 | |||||
242 | ; |